home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / BlitzList / BlitzListFiles / LockWins < prev    next >
Encoding:
Text File  |  1998-08-01  |  563 b   |  25 lines
  1. Statement GoBusy{w}    ;set Busy-Pointer for window w
  2.   Dim ti.TagItem(3)
  3.  
  4.   ti(0)\ti_Tag=#WA_BusyPointer,True
  5.   ti(1)\ti_Tag=#WA_PointerDelay,True
  6.   ti(1)\ti_Tag=#TAG_DONE
  7.  
  8.   *win.Window=Peek.l(Addr Window(w))
  9.   If *win<>0 Then void.w=SetWindowPointerA_(*win, &ti(0) )
  10.   Activate w
  11.  
  12. End Statement
  13.  
  14. Statement UnBusy{w}    ;set Normal Pointer for window w
  15.   Dim ti.TagItem(2)
  16.  
  17.   ti(0)\ti_Tag=#WA_BusyPointer,False
  18.   ti(1)\ti_Tag=#TAG_DONE
  19.  
  20.   *win.Window=Peek.l(Addr Window(w))
  21.   If *win<>0 Then void.w=SetWindowPointerA_(*win, &ti(0) )
  22.   Activate w
  23. End Statement
  24.  
  25.